home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0885.arc / CROSST2.LTG < prev    next >
Text File  |  1986-02-27  |  896b  |  32 lines
  1. Crossthoughts  Listingá 2«á  
  2.  
  3.  
  4. PP╠ routine≤ t∩ recal∞ anΣ storσ element≤ oµ ß two-dimensiona∞ ì
  5. virtua∞ array¼ usinτ thσ checkerboarΣ method
  6.  
  7. FUNCTION MATLOC(VM_Row_Index, VM_Col_Index : integer) return integer
  8.  
  9. BEGIN
  10.     Calculate sought row and column pages numbers
  11.     Calculate final sought page number as a one dimensional array
  12.     Search for page among RAM resident pages
  13.  
  14.     IF NOT Found
  15.     THEN
  16.         Select page to swap
  17.         IF Selected page has been modifed THEN save it END IF
  18.         Load sought page
  19.         Update table entry information
  20.     END IF
  21.     return (address of page as indicated in the page table entry)
  22.  
  23. END LOC
  24.  
  25.  
  26. PROCEDURE VM_MAT_Assign(VM_Index : integer; X : Your_data)
  27.  
  28. BEGIN
  29.     RAM_Data[LOC(VM_Row_Index,VM_Col_Index)] = X
  30.     Table[SOUGHT_PAGE].Dirty_bit = 1
  31. END VM_MAT_Assign
  32.